<%
page_content = "רשום כאן הודעה"
visitor_name = ""
dim func
func=request.querystring("func")
visitor_id = session("visitor_id")
if func = "2" then
dim cmess, rmess, sqlmess
set cmess=server.createobject("adodb.connection")
cmess.open DSN_NAME
sqlmess="select * from livechatanswer where visitor_id='" & visitor_id & "'"
set rmess=server.createobject("adodb.recordset")
rmess.open sqlmess, cmess, 3
if not rmess.eof then
manag_content = rmess("respond")
visitor_name = rmess("visitor_name")
end if
%>
<%
NewmsgFlag = 0
cmess.execute "delete from livechatanswer where visitor_id='" & visitor_id & "'"
set rmess=nothing
cmess.close
set cmess=nothing
end if
%>
<%
public gato
%>